home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO64.LSP < prev    next >
Encoding:
Text File  |  1986-09-23  |  633 b   |  19 lines
  1. (Defun C:Chglen ()
  2.        (Setvar "Cmdecho" 0)
  3.        (Setq A (Getvar "Gridmode"))
  4.        (Setq B (Getvar "Snapmode"))
  5.        (Setq C (Getvar "Snapang"))
  6.        (Setq E (Getvar "Orthomode"))
  7.        (Setvar "Orthomode" 1)
  8.        (Setq P2 (Osnap (Setq P1 (Osnap (Getpoint
  9.                   "Touch line to change: ")"End"))"Mid"))
  10.        (Setvar "Gridmode" 0)
  11.        (Setvar "Snapmode" 0)
  12.        (Setvar "Snapang" (Angle P2 P1))
  13.        (Setq D (Getdist P1 "How far: "))
  14.        (Command "Change" P1 "" (Polar P1 (Angle P2 P1) D))
  15.        (Setvar "Gridmode" A)
  16.        (Setvar "Snapmode" B)
  17.        (Setvar "Snapang" C)
  18. )
  19.